Mac Power 1997 February

home *** CD-ROM | disk | FTP | other *** search

/ Mac Power 1997 February / macpower199702.bin / AMUG / Programming_7 / Chipmunk Basic 3.5.0 FAT.sit / chipmunk-basic-3.5.0 ƒ / ucase.bas < prev

MacBinary | 1996-07-27 | 1.5 KB | [TEXT/cBaS]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

browse contents |

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Memotech MTX BASIC source `(document/memotechMTXBASICSource)`	ext	Unsupported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat Jul 27 11:40:39 1996, modified Sat Jul 27 11:40:39 1996, creator 'cBaS', type ASCII, 1015 bytes "ucase.bas" , at 0x477 286 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[cBaS]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 75 63 61 73 65 2e | 62 61 73 00 00 00 00 00 |..ucase.|bas.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 63 42 61 | 53 01 00 00 00 00 00 00 |.TEXTcBa|S.......|
|00000050| 00 00 00 00 00 03 f7 00 | 00 01 1e ae 1f e8 f7 ae |........|........|
|00000060| 1f e8 f7 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 2d aa 00 00 |........|....-...|
|00000080| 31 30 30 20 72 65 6d 20 | 73 75 62 72 6f 75 74 69 |100 rem |subrouti|
|00000090| 6e 65 20 74 65 73 74 73 | 0d 31 31 30 20 62 24 20 |ne tests|.110 b$ |
|000000a0| 3d 20 22 48 65 6c 4c 6f | 22 0d 31 32 30 20 70 72 |= "HelLo|".120 pr|
|000000b0| 69 6e 74 20 63 6f 75 6e | 74 63 61 70 73 28 62 24 |int coun|tcaps(b$|
|000000c0| 29 3b 22 20 63 61 70 69 | 74 61 6c 20 6c 65 74 74 |);" capi|tal lett|
|000000d0| 65 72 73 20 69 6e 20 22 | 3b 62 24 0d 31 33 30 20 |ers in "|;b$.130 |
|000000e0| 70 72 69 6e 74 20 75 63 | 61 73 65 24 28 62 24 29 |print uc|ase$(b$)|
|000000f0| 3b 22 20 69 73 20 61 6c | 6c 20 63 61 70 69 74 61 |;" is al|l capita|
|00000100| 6c 20 6c 65 74 74 65 72 | 73 22 0d 31 34 30 20 70 |l letter|s".140 p|
|00000110| 72 69 6e 74 20 22 7b 22 | 3b 73 70 63 24 28 34 29 |rint "{"|;spc$(4)|
|00000120| 3b 22 7d 20 73 68 6f 75 | 6c 64 20 62 65 20 34 20 |;"} shou|ld be 4 |
|00000130| 73 70 61 63 65 73 20 62 | 65 74 77 65 65 6e 20 74 |spaces b|etween t|
|00000140| 68 65 20 62 72 61 63 6b | 65 74 73 22 0d 31 35 30 |he brack|ets".150|
|00000150| 20 66 6f 72 20 69 20 3d | 20 31 20 74 6f 20 31 30 | for i =| 1 to 10|
|00000160| 20 3a 20 70 72 69 6e 74 | 20 66 69 62 28 69 29 3b | : print| fib(i);|
|00000170| 20 3a 20 6e 65 78 74 20 | 69 20 3a 20 70 72 69 6e | : next |i : prin|
|00000180| 74 20 22 20 61 72 65 20 | 66 69 62 6f 6e 61 63 63 |t " are |fibonacc|
|00000190| 69 20 6e 75 6d 62 65 72 | 73 22 0d 31 39 30 20 65 |i number|s".190 e|
|000001a0| 6e 64 0d 31 39 31 20 27 | 2a 2a 2a 2a 2a 2a 2a 2a |nd.191 '|********|
|000001b0| 0d 38 30 30 30 20 73 75 | 62 20 66 69 62 28 6e 29 |.8000 su|b fib(n)|
|000001c0| 20 3a 20 72 65 6d 20 72 | 65 63 75 72 73 69 76 65 | : rem r|ecursive|
|000001d0| 20 66 69 62 6f 6e 61 63 | 63 69 20 6e 75 6d 62 65 | fibonac|ci numbe|
|000001e0| 72 0d 38 30 31 30 20 20 | 20 69 66 20 6e 20 3c 20 |r.8010  | if n < |
|000001f0| 32 20 74 68 65 6e 20 72 | 65 74 75 72 6e 20 28 31 |2 then r|eturn (1|
|00000200| 29 0d 38 30 32 30 20 72 | 65 74 75 72 6e 20 28 66 |).8020 r|eturn (f|
|00000210| 69 62 28 6e 2d 31 29 2b | 66 69 62 28 6e 2d 32 29 |ib(n-1)+|fib(n-2)|
|00000220| 29 0d 39 30 30 30 20 73 | 75 62 20 75 63 61 73 65 |).9000 s|ub ucase|
|00000230| 24 28 61 24 2c 62 24 2c | 69 2c 63 2c 6e 29 20 3a |$(a$,b$,|i,c,n) :|
|00000240| 20 72 65 6d 20 63 6f 6e | 76 65 72 74 20 61 24 20 | rem con|vert a$ |
|00000250| 74 6f 20 75 70 70 65 72 | 20 63 61 73 65 0d 39 30 |to upper| case.90|
|00000260| 31 30 20 20 20 62 24 20 | 3d 20 22 22 0d 39 30 32 |10   b$ |= "".902|
|00000270| 30 20 20 20 6e 20 3d 20 | 6c 65 6e 28 61 24 29 0d |0   n = |len(a$).|
|00000280| 39 30 33 30 20 20 20 66 | 6f 72 20 69 20 3d 20 31 |9030   f|or i = 1|
|00000290| 20 74 6f 20 6e 0d 39 30 | 34 30 20 20 20 20 20 63 | to n.90|40     c|
|000002a0| 20 3d 20 61 73 63 28 6d | 69 64 24 28 61 24 2c 69 | = asc(m|id$(a$,i|
|000002b0| 2c 31 29 29 0d 39 30 35 | 30 20 20 20 20 20 69 66 |,1)).905|0     if|
|000002c0| 20 63 20 3e 20 39 36 20 | 74 68 65 6e 20 63 20 3d | c > 96 |then c =|
|000002d0| 20 63 2d 33 32 0d 39 30 | 36 30 20 20 20 20 20 62 | c-32.90|60     b|
|000002e0| 24 20 3d 20 62 24 2b 63 | 68 72 24 28 63 29 0d 39 |$ = b$+c|hr$(c).9|
|000002f0| 30 37 30 20 20 20 6e 65 | 78 74 20 69 0d 39 30 38 |070   ne|xt i.908|
|00000300| 30 20 72 65 74 75 72 6e | 20 28 62 24 29 0d 39 31 |0 return| (b$).91|
|00000310| 30 30 20 73 75 62 20 63 | 6f 75 6e 74 63 61 70 73 |00 sub c|ountcaps|
|00000320| 28 61 24 2c 69 2c 6e 2c | 63 24 29 20 3a 20 72 65 |(a$,i,n,|c$) : re|
|00000330| 6d 20 63 6f 75 6e 74 20 | 63 61 70 69 74 61 6c 20 |m count |capital |
|00000340| 6c 65 74 74 65 72 73 20 | 69 6e 20 61 24 0d 39 31 |letters |in a$.91|
|00000350| 31 30 20 20 20 6e 20 3d | 20 30 0d 39 31 32 30 20 |10   n =| 0.9120 |
|00000360| 20 20 66 6f 72 20 69 20 | 3d 20 31 20 74 6f 20 6c |  for i |= 1 to l|
|00000370| 65 6e 28 61 24 29 0d 39 | 31 33 30 20 20 20 20 20 |en(a$).9|130     |
|00000380| 63 24 20 3d 20 6d 69 64 | 24 28 61 24 2c 69 2c 31 |c$ = mid|$(a$,i,1|
|00000390| 29 20 3a 20 69 66 20 63 | 24 20 3e 3d 20 22 41 22 |) : if c|$ >= "A"|
|000003a0| 20 61 6e 64 20 63 24 20 | 3c 3d 20 22 5a 22 20 74 | and c$ |<= "Z" t|
|000003b0| 68 65 6e 20 6e 20 3d 20 | 6e 2b 31 0d 39 31 34 30 |hen n = |n+1.9140|
|000003c0| 20 20 20 6e 65 78 74 20 | 69 0d 39 31 35 30 20 72 |   next |i.9150 r|
|000003d0| 65 74 75 72 6e 20 28 6e | 29 0d 39 32 30 30 20 73 |eturn (n|).9200 s|
|000003e0| 75 62 20 73 70 63 24 28 | 6e 2c 62 24 2c 69 29 20 |ub spc$(|n,b$,i) |
|000003f0| 3a 20 72 65 6d 20 63 72 | 65 61 74 65 20 61 20 73 |: rem cr|eate a s|
|00000400| 74 72 69 6e 67 20 6f 66 | 20 6e 20 73 70 61 63 65 |tring of| n space|
|00000410| 73 0d 39 32 31 30 20 20 | 20 62 24 20 3d 20 22 22 |s.9210  | b$ = ""|
|00000420| 0d 39 32 32 30 20 20 20 | 66 6f 72 20 69 20 3d 20 |.9220   |for i = |
|00000430| 31 20 74 6f 20 6e 20 3a | 20 62 24 20 3d 20 62 24 |1 to n :| b$ = b$|
|00000440| 2b 22 20 22 20 3a 20 6e | 65 78 74 20 69 0d 39 32 |+" " : n|ext i.92|
|00000450| 33 30 20 72 65 74 75 72 | 6e 20 28 62 24 29 0d 39 |30 retur|n (b$).9|
|00000460| 39 38 30 20 27 2a 2a 2a | 2a 2a 2a 2a 2a 0d 39 39 |980 '***|*****.99|
|00000470| 39 30 20 65 6e 64 0d 00 | 00 00 00 00 00 00 00 00 |90 end..|........|
|00000480| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000490| 64 73 79 73 76 00 00 00 | 88 70 72 6f 63 00 00 00 |dsysv...|.proc...|
|000004a0| 92 66 70 75 20 00 00 00 | 9e 71 64 20 20 00 00 00 |.fpu ...|.qd  ...|
|000004b0| 09 75 63 61 73 65 2e 62 | 61 73 02 00 00 00 50 61 |.ucase.b|as....Pa|
|000004c0| 72 74 53 49 54 21 00 00 | 00 00 00 00 00 00 00 02 |rtSIT!..|........|
|000004d0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 ae 78 1a ea 00 00 | 00 00 00 00 01 1e 06 10 |...x....|........|
|00000500| 38 0c b3 5c 80 60 00 ff | 60 70 00 30 38 01 5a 60 |8..\.`..|`p.08.Z`|
|00000510| 00 ff 56 70 00 10 38 01 | 2f 52 40 60 00 ff 4a 0c |..Vp..8.|/R@`..J.|
|00000520| 38 00 04 01 2f 67 38 08 | 38 00 04 0b 22 67 34 20 |8.../g8.|8..."g4 |
|00000530| 4f f2 80 00 00 f3 27 30 | 17 2e 48 0c 40 1f 18 67 |O.....'0|..H.@..g|
|00000540| 16 0c 40 3f 18 67 10 0c | 40 3f 38 67 0e 0c 40 1f |..@?.g..|@?8g..@.|
|00000550| 38 67 08 70 00 60 0e 70 | 01 60 0a 70 02 60 06 70 |8g.p.`.p|.`.p.`.p|
|00000560| 03 60 02 70 00 60 00 ff | 00 0c 78 3f ff 02 8e 6e |.`.p.`..|..x?...n|
|00000570| 1c 30 3c a8 9f a7 46 24 | 08 20 3c 00 00 ab 03 a7 |.0<...F$|. <.....|
|00000580| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000590| 01 2b ce 84 18 fa 00 00 | 00 1c 00 1e ff ff 00 00 |.+......|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+